Columbia Kermit/kermit.zip/newsgroups/misc.19980901-19981211/000138_news@newsmaster….columbia.edu _Sun Oct 11 16:53:29 1998.msg

Internet Message Format | 2020-01-01 | 5KB

Return-Path: <[e-mail]>
Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
    by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id QAA04228
    for <[e-mail]>; Sun, 11 Oct 1998 16:53:29 -0400 (EDT)
Received: (from news@localhost)
    by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id QAA19168
    for kermit.misc@watsun; Sun, 11 Oct 1998 16:53:28 -0400 (EDT)
Path: news.columbia.edu!panix!howland.erols.net!news-nyc.telia.net!newsfeed.nyu.edu!novia!news.unisys.com.br!news.eskimo.com!jimo
From: [e-mail] (Jim Osborn)
Newsgroups: comp.protocols.kermit.misc
Subject: Re: Unwanted beeps
Date: 11 Oct 1998 20:47:44 GMT
Organization: Eskimo North (206) For-Ever
Lines: 139
Message-ID: <6vr5hg$nij$[e-mail]>
References: <6vog5k$51k$[e-mail]> <6vr37c$cmb$[e-mail]>
NNTP-Posting-Host: eskimo.com
Xref: news.columbia.edu comp.protocols.kermit.misc:9323

In article <6vr37c$cmb$[e-mail]>,
Jeffrey Altman <[e-mail]> wrote:
>In article <6vog5k$51k$[e-mail]>,
>Jim Osborn <[e-mail]> wrote:
>:
>: My kermit script beeps at me, seemingly whenever it experiences a
>: change of flow, and it makes me think it's beeping on any failure.
>: I have lots of "if fail goto retry" statements and every one seems
>: to produce a beep, although there are no beeps or Ctl-Gs or any
>: such statements anywhere in the script.
>:
>: Is there a switch I can set to ask for silence on error?  I assume
>: Kermit is somehow unhappy and beeps to announce the fact, but I
>: really need it to be quiet, so I can hear the real beep my ISP
>: gives me once the whole thing succeeds.  I haven't been able to
>: find mention of such a switch in the manual, but I'm hoping I've
>: somehow missed it, or it's there but undocumented.
>:
>: C-Kermit 6.0.192, 6 Sep 96, for Linux
>:
>: Thanks in advance
>: [e-mail]
>
>
>Most likely you have an error in the script which is causing the
>commands to be parsed as invalid.  If this is in a loop or is repeated
>throughout your script you will get lots of beeps.

I suppose.  The script certainly seems to work - does what I ask it to do.
Since it does its job correctly, I'd simply like to shut it up altogether,
forever, for any reason.  Is there a way to do that?  Some sort of
*audible* quiet switch?  Never, ever beep?

Thanks very much in advance for any insights into this problem.

For what it's worth, here's the .kermrc file:

When I invoke "eskimo alt" to get it to cycle through the list of numbers,
it beeps as soon as it detects a BUSY, then dials the next number.

Is my error obvious?  Keep in mind there's probably no need to delve
into the second half of the script, unless it could cause beeps even
though the flow doesn't get there.  I assume as long as we experience
some sort of dialing error, like BUSY, we simply cycle back to ":retry."

set line /dev/modem
set speed 38400
set modem type supra
set flow-control rts/cts

set dial interval 1
set dial timeout 45
set parity none

set receive packet-length 4096
set block 3                #Use long CRC packet check
set window 20
set prefixing minimal        #fast file xfer
set transfer slow-start off
set file type binary
set file name literal
set case on
set quiet on

set prompt Linux Kermit>
define rz !rz -y </dev/cua2 >/dev/modem
define sz !sz \%1 </dev/cua2 >/dev/modem

declare \&d[7]
assign \&d[0]    425-258-3608
assign \&d[1]    425-258-4598
assign \&d[2]    425-258-0748
assign \&d[3]    425-258-1022
assign \&d[4]    425-258-1264
assign \&d[5]    425-258-1576
assign \&d[6]    425-258-2567
assign \&d[7]    425-258-3458

define eskimo {
    while not defined \%a {
        askq \%a {Eskimo Password: }
    }
    assign \%n 0
    :retry
    xif def \%1 {
        xif equal \%1 alt {
            incr \%n
            if > \%n 7 assign \%n 0
            set dial retries 0
            echo dialing \&d[\%n]
            dial \&d[\%n]
            if fail goto retry
        }
    } else {
        set dial retries 999
        dial 425-258-0759
        if fail goto retry
    }

    in 30 {Your Selection ==>}            #Initial selector
    if fail goto retry
    output 1\13                            #Select Eskimo
    in 60 login:                        #Start login process
    if fail goto retry
    out jimo\13
    clear input
    in 30 {Welcome to eskimo.com.}            #Read Annex ID string
    if fail goto retry
    assign \%x \v(input)
    assign \%y \fsubstring(\v(input), \find(CLI, \v(input))+5, 2)
    assign \%z \fsubstring(\v(input), \find(@seattle, \v(input))+8, 1)
    xif equal \%z 1 {
        xif equal \%y 45 {
            goto retry
        }
    }
    xif equal \%z 2 {
        xif equal \%y 27 {
            goto retry
        }
    }
    xif equal \%z 3 {
        xif equal \%y 34 {
            goto retry
        }
        xif equal \%y 35 {
            goto retry
        }
    }
    in 30 Password:
    if fail goto retry
    out \%a\13
    in 60 {Main Command?}
    if fail goto retry
    out {!}
    echo Modem: \%y   Bank:  \%z
    pause 5
    connect /quietly
}